home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Winter / rerun-1985-winter.d64 / source print (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  251 b   |  20 lines
  1. 10 printchr$(147)
  2. 20 dim a$(255)
  3. 30 input "filename[160]";nf$
  4. 40 na$="==="+nf$+"==="
  5. 50 nf$="0:"+ nf$ +",s,r"
  6. 60 open9,8,9,nf$
  7. 70 input#9,a$(c)
  8. 80 print a$(c)
  9. 90 c=c+1
  10. 100 if st=0 then 70
  11. 110 close9
  12. 120 open4,4
  13. 130 print#4,na$
  14. 140 print#4
  15. 150 for x=0 to c-1
  16. 160 print#4,a$(x)
  17. 170 next
  18. 180 print#4
  19. 190 close4
  20.